home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / tbasic.arc / TB / CENTRE (.txt) next >
Commodore BASIC  |  2009-10-10  |  1KB  |  43 lines
  1. 0 REM CENTRE (SEPT 4/84)       :
  2. 1 :
  3. 2 REM 1 STATEMENTS, 0 FUNCTIONS
  4. 3 :
  5. 4 REM KEYWORD CHARACTERS: 6
  6. 5 :
  7. 6 REM KEYWORD     ROUTINE  LINE  SER #
  8. 7 REM CENTRE      CNTR     4144   049
  9. 8 :
  10. 9 REM ===============================
  11. 10 :
  12. 112 .ASC "CENTR[197]"
  13. 1112 .WORD CNTR-1
  14. 4144 CNTR JSR $AD9E ;EVAL STRING
  15. 4146 JSR $B6A3      ;MAKE DESCRIPTOR
  16. 4148 TAY            ;INDEX FROM STR END
  17. 4150 PHA            ;PUSH STR LENGTH
  18. 4152 LDX #0         ;# PRINTABLE CHAR
  19. 4154 CE1 DEY        ;BACKUP INDEX
  20. 4156 CPY #$FF       ;TEST DONE
  21. 4158 BEQ CE2        ;YES
  22. 4160 LDA ($22),Y    ;GET A CHAR
  23. 4162 AND #$7F       ;CLEAR HIGH BIT
  24. 4164 CMP #$20       ;TEST CTRL CHAR
  25. 4166 BCC CE1        ;YES
  26. 4168 INX            ;BUMP COUNTER
  27. 4170 BNE CE1        ;BRANCH ALWAYS
  28. 4172 CE2 TXA        ;TEST COUNTER<=40
  29. 4174 SEC
  30. 4176 SBC #$29
  31. 4178 BCS CE4        ;NO
  32. 4180 EOR #$FF       ;NEGATE AND HALVE
  33. 4182 LSR            ;RESULT
  34. 4183 LDX $D3        ;TEST LOGICAL LINE
  35. 4184 CPX #$28       ;40 OR 80
  36. 4185 BCC CE3        ;40
  37. 4186 ADC #$27       ;ADD 40(CARRY SET)
  38. 4187 CE3 STA $D3    ;SET CURSOR HORIZ
  39. 4188 PLA            ;PULL STRING LENGTH
  40. 4189 JMP $AB24      ;PRINT STRING
  41. 4190 CE4 JMP $A571
  42. 4192 ;
  43.